home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 09, No. 07 (1988-07)(MicroSPARC)(Side A).zip / Nibble Volume 09, No. 07 (1988-07)(MicroSPARC)(Side A).po / HSF.S < prev    next >
Text File  |  1996-12-24  |  1KB  |  62 lines
  1. ***************************
  2. * HSF                     *
  3. * HI-RES SCRN FUNCTION    *
  4. * COPYRIGHT(C) 1988       *
  5. * MICROSPARC, INC.        *
  6. * CONCORD, MA 01742       *
  7. ***************************
  8. * MERLIN ASSEMBLER        *
  9. ***************************
  10. *
  11. * EQUATES
  12. *
  13. VARPNT    = $83          ;ADDR OF VARIABLE
  14. WORK      = $FF          ;TEMPORARY LOCATION
  15. VECTOR    = $3F5         ;AMPERSAND VECTOR
  16. CHKCOM    = $DEBE        ;CHECK FOR A COMMA
  17. PTRGET    = $DFE3        ;ADDR OF VARIABLE TO VARPNT
  18. GRCALC    = $F411        ;GETS ADDRESS OF DOT
  19. CHKNUM    = $F6B9        ;GETS X AND Y COORDINATES
  20. *
  21. * SET UP AMPERSAND VECTOR
  22. *
  23.           ORG $300
  24. START     LDA #$4C
  25.           STA VECTOR
  26.           LDA #<BEGIN
  27.           STA VECTOR+1
  28.           LDA #>BEGIN
  29.           STA VECTOR+2
  30.           RTS
  31. *
  32. * ACTUAL SCRN FUNCTION
  33. *
  34. BEGIN     JSR CHKNUM
  35.           JSR GRCALC
  36.           LDY $E5
  37.           LDA ($26),Y
  38.           AND #$7F
  39.           STA WORK
  40.           LDA $30
  41.           AND #$7F
  42.           AND WORK
  43.           ORA #$80
  44.           CMP $30
  45.           BNE NONE
  46.           LDA #$1
  47.           BNE B0
  48. NONE      LDA #$0
  49. B0        PHA
  50. *
  51. * PUT RESULT INTO INTEGER
  52. *
  53.           JSR CHKCOM
  54.           JSR PTRGET
  55.           LDY #$0
  56.           LDA #$0
  57.           STA (VARPNT),Y
  58.           INY
  59.           PLA
  60.           STA (VARPNT),Y
  61.           RTS
  62.